﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class LineasFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As LineasBE
        Dim tmpLineas As LineasBE = New LineasBE()
        Try
            With tmpLineas
                .Clave = convertDTFromDb.ConvertString(dr.Item("Clave"))
                .Descripcion = convertDTFromDb.ConvertString(dr.Item("Descripcion"))
                .IdEmpresa = convertDTFromDb.ConvertShort(dr.Item("IdEmpresa"))
                .IdLinea = convertDTFromDb.convertInt32(dr.Item("IdLinea"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
            End With
            Return tmpLineas
        Catch ex As Exception
            Throw
        Finally
            tmpLineas = Nothing
        End Try
    End Function
End Class
